home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / filelist / pulldown.bas < prev   
BASIC Source File  |  1995-09-07  |  6KB  |  215 lines
  1. Dim szCode As String
  2. Dim szDescr As String
  3. Dim KeyRet As Integer
  4.  
  5. Sub FileLists_KeyDown (fForm As Form, KeyCode As Integer, Shift As Integer)
  6.  
  7.     If KeyCode = KEY_RETURN Then
  8.         If fForm.FileList.ListSelect(0) <> -1 Then
  9.             a$ = fForm.FileList.ListArray(fForm.FileList.ListSelect(0))
  10.             SetReturn a$
  11.         Else
  12.             SetReturn ""
  13.         End If
  14.         fForm.Hide
  15.     ElseIf KeyCode = KEY_DELETE Then
  16.         fForm.Hide
  17.     End If
  18.     KeyRet = KeyCode
  19. End Sub
  20.  
  21. Sub LoadColori (fForm As Form)
  22.     
  23.     fForm.Width = 2000
  24.     fForm.Height = 3000
  25.     fForm.FileList.Move 0, 0, fForm.ScaleWidth, fForm.ScaleHeight
  26.  
  27.     fForm.FileList.MaxSelect = 1
  28.     fForm.FileList.ListGray(0) = -1
  29.  
  30.     Rem FILTERS
  31.     fForm.FileList.DisplayCol(0) = 2
  32.     fForm.FileList.DisplayCol(1) = 3
  33.     fForm.FileList.DisplayCol(2) = 4
  34.     fForm.FileList.DisplayCol(3) = -1
  35.     fForm.FileList.OutputCol(0) = 1
  36.     fForm.FileList.OutputCol(1) = 2
  37.     fForm.FileList.OutputCol(2) = 3
  38.     fForm.FileList.OutputCol(3) = 4
  39.     fForm.FileList.OutputCol(4) = -1
  40.     fForm.FileList.InputCol(0) = 1
  41.     fForm.FileList.InputCol(1) = -1
  42.  
  43.     fForm.FileList.LineSize = 31
  44.     fForm.FileList.FileName = "colori.txt"
  45.  
  46. End Sub
  47.  
  48. Sub LoadDisegni (fForm As Form)
  49.     
  50.     fForm.Width = 2000
  51.     fForm.Height = 3000
  52.     fForm.FileList.Move 0, 0, fForm.ScaleWidth, fForm.ScaleHeight
  53.  
  54.     fForm.FileList.MaxSelect = 1
  55.     fForm.FileList.ListGray(0) = -1
  56.  
  57.     Rem FILTERS
  58.     fForm.FileList.DisplayCol(0) = 2
  59.     fForm.FileList.DisplayCol(1) = 3
  60.     fForm.FileList.DisplayCol(2) = 4
  61.     fForm.FileList.DisplayCol(3) = -1
  62.     fForm.FileList.OutputCol(0) = 1
  63.     fForm.FileList.OutputCol(1) = 2
  64.     fForm.FileList.OutputCol(2) = 3
  65.     fForm.FileList.OutputCol(3) = 4
  66.     fForm.FileList.OutputCol(4) = -1
  67.     fForm.FileList.InputCol(0) = 1
  68.     fForm.FileList.InputCol(1) = -1
  69.  
  70.     fForm.FileList.LineSize = 31
  71.     fForm.FileList.FileName = "disegni.txt"
  72.  
  73. End Sub
  74.  
  75. Sub LoadEpoca (fForm As Form)
  76.     
  77.     fForm.Width = 2000
  78.     fForm.Height = 3000
  79.     fForm.FileList.Move 0, 0, fForm.ScaleWidth, fForm.ScaleHeight
  80.  
  81.     fForm.FileList.MaxSelect = 1
  82.     fForm.FileList.ListGray(0) = -1
  83.  
  84.     Rem FILTERS
  85.     fForm.FileList.DisplayCol(0) = 2
  86.     fForm.FileList.DisplayCol(1) = 3
  87.     fForm.FileList.DisplayCol(2) = 4
  88.     fForm.FileList.DisplayCol(3) = -1
  89.     fForm.FileList.OutputCol(0) = 1
  90.     fForm.FileList.OutputCol(1) = 2
  91.     fForm.FileList.OutputCol(2) = 3
  92.     fForm.FileList.OutputCol(3) = 4
  93.     fForm.FileList.OutputCol(4) = -1
  94.     fForm.FileList.InputCol(0) = 1
  95.     fForm.FileList.InputCol(1) = -1
  96.  
  97.     fForm.FileList.LineSize = 31
  98.     fForm.FileList.FileName = "epoche.txt"
  99.  
  100.  
  101. End Sub
  102.  
  103. Sub LoadFibre (fForm As Form)
  104.     
  105.     fForm.Width = 2000
  106.     fForm.Height = 3000
  107.     fForm.FileList.Move 0, 0, fForm.ScaleWidth, fForm.ScaleHeight
  108.  
  109.     fForm.FileList.MaxSelect = 1
  110.     fForm.FileList.ListGray(0) = -1
  111.  
  112.     Rem FILTERS
  113.     fForm.FileList.DisplayCol(0) = 2
  114.     fForm.FileList.DisplayCol(1) = 3
  115.     fForm.FileList.DisplayCol(2) = 4
  116.     fForm.FileList.DisplayCol(3) = -1
  117.     fForm.FileList.OutputCol(0) = 1
  118.     fForm.FileList.OutputCol(1) = 2
  119.     fForm.FileList.OutputCol(2) = 3
  120.     fForm.FileList.OutputCol(3) = 4
  121.     fForm.FileList.OutputCol(4) = -1
  122.     fForm.FileList.InputCol(0) = 1
  123.     fForm.FileList.InputCol(1) = -1
  124.  
  125.     fForm.FileList.LineSize = 31
  126.     fForm.FileList.FileName = "fibre.txt"
  127.  
  128. End Sub
  129.  
  130. Sub LoadFoggia (fForm As Form)
  131.     
  132.     fForm.Width = 2000
  133.     fForm.Height = 3000
  134.     fForm.FileList.Move 0, 0, fForm.ScaleWidth, fForm.ScaleHeight
  135.  
  136.     fForm.FileList.MaxSelect = 1
  137.     fForm.FileList.ListGray(0) = -1
  138.  
  139.     Rem FILTERS
  140.     fForm.FileList.DisplayCol(0) = 2
  141.     fForm.FileList.DisplayCol(1) = 3
  142.     fForm.FileList.DisplayCol(2) = 4
  143.     fForm.FileList.DisplayCol(3) = -1
  144.     fForm.FileList.OutputCol(0) = 1
  145.     fForm.FileList.OutputCol(1) = 2
  146.     fForm.FileList.OutputCol(2) = 3
  147.     fForm.FileList.OutputCol(3) = 4
  148.     fForm.FileList.OutputCol(4) = -1
  149.     fForm.FileList.InputCol(0) = 1
  150.     fForm.FileList.InputCol(1) = -1
  151.  
  152.     fForm.FileList.LineSize = 26
  153.     fForm.FileList.FileName = "fogge.txt"
  154.  
  155. End Sub
  156.  
  157. Sub LoadTessuti (fForm As Form)
  158.     
  159.     fForm.Width = 2000
  160.     fForm.Height = 3000
  161.     fForm.FileList.Move 0, 0, fForm.ScaleWidth, fForm.ScaleHeight
  162.  
  163.     fForm.FileList.MaxSelect = 1
  164.     fForm.FileList.ListGray(0) = -1
  165.  
  166.     Rem FILTERS
  167.     fForm.FileList.DisplayCol(0) = 2
  168.     fForm.FileList.DisplayCol(1) = 3
  169.     fForm.FileList.DisplayCol(2) = 4
  170.     fForm.FileList.DisplayCol(3) = -1
  171.     fForm.FileList.OutputCol(0) = 1
  172.     fForm.FileList.OutputCol(1) = 2
  173.     fForm.FileList.OutputCol(2) = 3
  174.     fForm.FileList.OutputCol(3) = 4
  175.     fForm.FileList.OutputCol(4) = -1
  176.     fForm.FileList.InputCol(0) = 1
  177.     fForm.FileList.InputCol(1) = -1
  178.  
  179.     fForm.FileList.LineSize = 31
  180.     fForm.FileList.FileName = "tessuti.txt"
  181.  
  182. End Sub
  183.  
  184. Function ReturnKey () As Integer
  185.  
  186.     ReturnKey = KeyRet
  187.  
  188. End Function
  189.  
  190. Sub SetReturn (szRet As String)
  191.  
  192.     nBlankPos = InStr(szRet, " ")
  193.     If nBlankPos > 0 Then
  194.         szCode = Mid$(szRet, 1, nBlankPos - 1)
  195.         szDescr = Mid$(szRet, nBlankPos + 1)
  196.     Else
  197.         szCode = ""
  198.         szDescr = ""
  199.     End If
  200.  
  201. End Sub
  202.  
  203. Function szReturnCode () As String
  204.  
  205.     szReturnCode = szCode
  206.  
  207. End Function
  208.  
  209. Function szReturnDescr () As String
  210.  
  211.     szReturnDescr = szDescr
  212.  
  213. End Function
  214.  
  215.